home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fatted Calf
/
The Fatted Calf.iso
/
Applications
/
Conversion
/
Convert_PICT
/
Convert PICT.app
/
UncommentedPSCode
/
Lines
< prev
next >
Wrap
Text File
|
1994-05-24
|
2KB
|
108 lines
%BEGIN Lines
/currentX 0 def
/currentY 0 def
/PICTline
{
/endY exch def
/endX exch def
/startY exch def
/startX exch def
penHeight 0 gt
penWidth 0 gt
and
{
gsave
penPattern usePattern
newpath
penHeight 1 eq
penWidth 1 eq
and
{
startX startY moveto
endX endY lineto
stroke
}
{
endY startY lt
{
endX startX gt
{
startX startY moveto
endX endY lineto
endX penWidth add endY lineto
endX penWidth add endY penHeight add lineto
startX penWidth add startY penHeight add lineto
startX startY penHeight add lineto
}
{
startX penWidth add startY moveto
endX penWidth add endY lineto
endX endY lineto
endX endY penHeight add lineto
startX startY penHeight add lineto
startX penWidth add startY penHeight add lineto
}
ifelse
}
{
endX startX gt
{
startX startY moveto
startX penWidth add startY lineto
endX penWidth add endY lineto
endX penWidth add endY penHeight add lineto
endX endY penHeight add lineto
startX startY penHeight add lineto
}
{
startX startY moveto
endX endY lineto
endX endY penHeight add lineto
endX penWidth add endY penHeight add lineto
startX penWidth add startY penHeight add lineto
startX penWidth add startY lineto
}
ifelse
}
ifelse
closepath
fill
} % End pensize = 1.
ifelse
grestore
} % End pensize >0
if
} def
/line
{
/endY exch def
/endX exch def
/startY exch def
/startX exch def
startX startY endX endY PICTline
/currentX endX def
/currentY endY def
} def
/lineFrom
{
/endY exch def
/endX exch def
currentX currentY endX endY line
} def
/shortLine
{
/dy exch def
/dx exch def
/startY exch def
/startX exch def
startX startY startX dx add startY dy add line
} def
/shortLineFrom
{
/dy exch def
/dx exch def
currentX currentY currentX dx add currentY dy add line
} def
%END Lines